Australian Infopedia 2.0/Australian Infopedia 2.0.iso/opening/tour2.dir/00091_Script_91

Text File | 1996-06-17 | 969b | 37 lines

on startMovie
  global pauseSprite
  set pauseSprite = 44

  global gPaused, gContinued
  set gPaused = FALSE
  set gContinued = FALSE
end

on waitsound whichChannel
  repeat while (soundBusy(whichChannel)) and not (the mouseDown)
    updateStage
  end repeat
  checkPassClick
end waitSound

on waitVideo whichSprite
  set the movietime of sprite whichsprite = 0 -- REWIND
  set the movierate of sprite whichsprite = 1 -- START PLAYING
  repeat while (the movieRate of sprite whichSprite > 0) and not (the mouseDown) and not (the movietime of sprite whichSprite >= the duration of cast the castNum of sprite whichSprite)
    updateStage
  end repeat
  checkPassClick
end waitVideo

on checkPassClick
  global gPaused, gContinued, PauseSprite
  if gPaused then
    if the clickon = PauseSprite then
      continueDemo
    end if
  else if gContinued then
    if the clickon = PauseSprite then
      pauseDemo
    end if
  end if
end